source('03_figure_5-14-15.R')
require(xtable)
print(xtable(tbl_to_print, digits=c(0,0,0,0,2,2,2,2,2),
             caption = "Statistics of the discussion networks (n = nodes; e = edges; c = number of components; N = percentage of nodes in the largest component; U = user per discussion thread (mean); D = shortest path length (mean); T = transitivity; D cor = indegree/outdegree correlation) ", label = 'tab:m5s-pp-directreply-net-comparison'), 
      size = 'footnotesize')
